home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 87xx / 8702b.d64 / dia viewer100x80 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  532b  |  17 lines
  1. 3 IFC=1THEN35
  2. 5 J=J+1:IFJ=1THENLOAD"ZSATZ",8,8
  3. 10 A=A+1:IFA=1THENLOAD"MPMLOADER",8,8
  4. 12 INPUT"[147]HINTERGRUND";A:POKE53281,A
  5. 13 INPUT"VORDERGRUND";A
  6. 14 PRINT"HANDELT ES SICH UM FARBBILDER (J/N)":POKE198,0:WAIT198,1:GETF$
  7. 15 INPUT"[147]DISKETTE MIT LORES-BILD. EINLEGEN";A$
  8. 16 POKE646,A
  9. 17 PRINT"[147]BITTE WARTEN"
  10. 18 FORT=55296TO55296+999:POKET,A:NEXT:T=0:D=1:DIM A$(100):POKE53272,24
  11. 19 READ A$(D):D=D+1:IFA$(D-1)<>"*"THEN19
  12. 20 T=T+1:IFA$(T)="*"THENT=0:GOTO20
  13. 30 POKE252,4:POKE251,0:SYS828,A$(T):IFF$="J"THENC=1:C$=A$(T)+".":LOADC$,8,8
  14. 35 POKE198,0:WAIT198,1:GETA$
  15. 40 GOTO20
  16. 100 DATA STEGER,ASTERIX,*
  17.